;Exam2015H27tPrg2 VtgɂZ
;---------------------------
MAIN START
	LD GR0,MPCD
	LD GR2,MPLR
	CALL MULT
	ST GR0,ANS
	RET
MPCD DC 2355
MPLR DC 10
ANS DS 1
	END
;-----------------------
MULT START ;VtgɂZ
	RPUSH
	LD GR1,GR0 ;搔fqPɕێ
	LD GR0,=0  ;Zʂ̏
	LD GR3,=15
	LD GR2,GR2
LP	JZE FIN
	JPL CONT
	LD GR4,GR1
;----------------
	SLL GR4,0,GR3 ;ij̓@E
;---------------------
	ADDL GR0,GR4
CONT LAD GR3,-1,GR3
	SLL GR2,1
	JUMP LP
FIN RPOP
	RET
	END
;---------------------------
FACT START
	RPUSH
	LD GR0,=1
	SUBL GR1,=1
;--------------
	JPL NEXT ; i	a j̓ G
;--------------------------
	JUMP FIN
NEXT LD GR2,=1
LP LAD GR2,1,GR2
	CALL MULT
;--------------------
	SUBL GR1,=1 ;ij̓@I
;---------------------
	JNZ LP
FIN RPOP
	RET
	END
;-----------------------------------
